﻿
Imports System.IO
Imports xhtmlctrl.xhtmlControl

Public Class html_xhtml_1_1
    Inherits htmlbase

    Protected Overrides Function availableAttribute(ByVal key As String) As Boolean
        Return attributesCollection.i18n(key) OrElse _
                strsame(key, "id") OrElse _
                strsame(key, "version") OrElse _
                strsame(key, "xmlns")
    End Function

    Public Sub New(Optional ByVal buff As Stream = Nothing)
        MyBase.New(buff)
        xmlns = "http://www.w3.org/1999/xhtml"
    End Sub

    Public Shared Sub unittest()
        Dim inst As html_xhtml_1_1 = Nothing
        inst = New html_xhtml_1_1()
        inst.xml_lang = "zh-CN"
        Console.WriteLine(inst.ToString())
    End Sub

End Class
